﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>

<%
id=request("id")
ii=request("ii")
if ii="" then ii="0"
%>
<%
ids=myid
%>
<card id="main" title="删除发布">
<p>
<%if ii=1 then%>
		注意：确定要删除该信息吗？<br/>
		<a href="qqxx.asp?id=<%=id%>&amp;ii=2&amp;cc=<%=cc%>&amp;ve=<%=ve%>">确定</a>|<a href="qqxx.asp?cc=<%=cc%>&amp;ve=<%=ve%>">取消</a><br/>
			<a href="tt.asp?cc=<%=cc%>&amp;ve=<%=ve%>">返回江湖大厅</a><br/>
			<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">返回江湖首页</a><br/>
<%elseif ii=0 then%>

<%Set Rsl = Server.CreateObject("Adodb.Recordset")
			Sqll = "SELECT top 500 id,txt,lid,tm,yc,name,jg FROM tz where cstr(lid)='"&myid& "' order by tm desc"
			Rsl.Open Sqll,liao,1,1
			if not (rsl.bof and rsl.eof)  then 
				if rsl.RecordCount>5 then
					aaaaa=5
				else
					aaaaa=rsl.RecordCount
				end if%>

				==您发布的竞技消息==<br/>

				<%For i=1 to aaaaa
					If Rsl.Eof Then
						exit For
					end if%>
					<%=i%>.时间：[<%=rsl("tm")%>]<br/>挑战金额<%=rsl("txt")%>两银子
<%if rsl("jg")=0 then%>
[<a href='qqxx.asp?id=<%=rsl("id")%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>&amp;ii=1'>取消</a>]<br/>
<%else%>
[结束]<br/>
<%end if%>
				<%Rsl.MoveNext
				Next
			end if
			Rsl.close
			set rsl=nothing
                         
			%>
			<a href="tt.asp?cc=<%=cc%>&amp;ve=<%=ve%>">返回江湖大厅</a><br/>
			<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">返回江湖首页</a><br/>

<%elseif ii=2 then%>

<%
Set Rs2 = Server.CreateObject("Adodb.Recordset")
			Sql2 = "select * FROM tz WHERE id=" & id
			Rs2.Open Sql2,liao,1,3
                          txt=rs2("txt")
			if not (rs2.eof and rs2.bof) then

			rs2.Delete

			end if

			rs2.Close
			Set rs2 = Nothing
                        
			%>
<%sql="update wupin set yz=yz+"&txt&" where cstr(ids)="&myid
  liao.Execute(sql)%>
			
			删除发布成功!<br/>
返还银子<%=txt%>两<br/>
			<a href="tt.asp?cc=<%=cc%>&amp;ve=<%=ve%>">返回江湖大厅</a><br/>
			<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">返回江湖首页</a><br/>
			


<%else%>
错误信息！
----------<br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">江湖首页</a><br/>
<%end if%>	


		<%qingtian.shuchu%>

